home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / button12.lha / button8901.ps < prev    next >
Text File  |  1993-08-05  |  4KB  |  96 lines
  1. % 
  2. % button8901.ps - A GNU Button Program
  3. % 
  4. % This program may be freely redistributed under the terms of the GNU
  5. % General Public License.
  6. % 
  7. % Copyright 1989, 1992 Free Software Foundation
  8. % 
  9. % This GNU Button program is distributed in the hope that it will be
  10. % useful, but WITHOUT ANY WARRANTY.  No author or distributor accepts
  11. % responsibility to anyone for the consequences of using it or for
  12. % whether it serves any particular purpose or works at all, unless he
  13. % says so in writing.  Refer to the GNU General Public License for
  14. % full details.
  15. % 
  16. % Everyone is granted permission to copy, modify and redistribute this
  17. % GNU Button Program, but only under the conditions described in the
  18. % GNU General Public License.  A copy of this license is supposed to
  19. % have been given to you along with this GNU Button Program so you can
  20. % know your rights and responsibilities.  It should be in a file named
  21. % COPYING.  Among other things, the copyright notice and this notice
  22. % must be preserved on all copies.
  23. % 
  24. % Hard copies of this button were first distributed at the January
  25. % 1989 SanDiego Usenix.  They had black lettering on a blue background
  26. % on a standard 2 1/4" safety pin button.  They were designed by
  27. % Leonard H.  Tower Jr. who is also the author of this GNU Button
  28. % Program.
  29. % 
  30. % Report bugs or improvements to: tower@prep.ai.mit.edu
  31. % 
  32. % Hard copies of this button are probably still available.  To get a
  33. % button, one must have either donated source code or documentation to
  34. % the GNU Project or make a donation of at least $ 2.00 for each
  35. % button.
  36. % 
  37. % If you wish a hard copy of a gnu button send:
  38. %     - a self-addressed, stamped envelope; and
  39. %     - either:
  40. %         - a reminder of your source or documentation contribution; or
  41. %         - a donation payable to the "Free Software Foundation"; and
  42. %     - specify which of these different versions you wish:
  43. %         Feb 88, June 88, and/or Jan 89
  44. % to:    L. Tower Jr.
  45. %     36 Porter Street Somerville, MA 02143, USA
  46. % 
  47. % This program is available for anonymous ftp
  48. % prep.ai.mit.edu:/u2/emacs/button.N.MM.shar.  It is probably
  49. % available in other source archives.
  50.  
  51. % Uses {in,out}sidecircletext routines from Adobe Cookbook.
  52. .so circtext.ps
  53.  
  54. % center button on 8 1/2" x 11" page
  55. 306 396 translate
  56.  
  57. % This is a kludge to give better edge resolution.
  58. % Note that postscript's scale command doesn't cut it.
  59. % It scales after the edges are set.
  60. % biggg is set to 2,3,4 or 3.9 to make a master that is that much larger.
  61. % The master is reduced that much by the button manufacturer.
  62. % If only 1200 dpi postscript printers were more common ...
  63. /biggg 1 def
  64.  
  65. gsave
  66.   /gnutext (GNU) def
  67.   /ertext (er) def
  68.   /gnustpt 45 biggg mul def
  69.   /Times-Bold findfont gnustpt scalefont setfont
  70.   %center
  71.   % The "er" is half the point size of the "GNU"
  72.   /erwidth ertext stringwidth pop 2 div def
  73.   /gnuwidth gnutext stringwidth pop def
  74.   % don't take the Ue kern out here
  75.   gnuwidth erwidth add 2 div neg 
  76.             gnustpt 6 div neg moveto
  77.   gnutext show
  78.   /Times-Bold findfont gnustpt 2 div scalefont setfont
  79.   (e) stringwidth pop 4 div neg 0 rmoveto
  80.   ertext show
  81. grestore
  82. /Times-Bold findfont 14 biggg mul scalefont setfont
  83. (GNU's Not Unix)
  84.   14 biggg mul 90 53 biggg mul outsidecircletext
  85. /Times-Roman findfont 7.5 biggg mul scalefont setfont
  86. (Copyright 1989 Free Software Foundation)
  87.   7.5 biggg mul 90 69 biggg mul outsidecircletext
  88. (Anonymous ftp this button's postscript)
  89.   7.5 biggg mul 270 55 biggg mul insidecircletext
  90. (program from prep.ai.mit.edu:/u/emacs/button.N.MM.shar)
  91.   7.5 biggg mul 270 64 biggg mul insidecircletext
  92. (This button design may be freely redistributed under the terms of the GNU General Public License.)
  93.   7.5 biggg mul 270 73 biggg mul insidecircletext
  94. showpage
  95.  
  96.